Transaction.cls

Language: Visual Basic Class
Last Modified: 2020-06-27 1:58:30 PM UTC
File Size: 1058 bytes

http://www.penguinstew.ca/example/ExcelSQLExport/Transaction.cls

VERSION10CLASS

BEGIN

MultiUse=1True

END

AttributeVB_Name=Transaction

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_PredeclaredId=False

AttributeVB_Exposed=False

Representstransactiondata

PublicMonthIdAsInteger

PublicTransDateAsDate

PublicDescriptionAsString

PublicamountAsDouble

PublicCatagoryIdAsInteger

PublicRecurringExpenseIdAsInteger

PublicSpecialAccountIdAsInteger

FormatstheobjectintoanSQLinsertstatement

PublicFunctionToSQLAsString

DimspecialAccountAsString

IfSpecialAccountId=0Then

specialAccount=null

Else

specialAccount=SpecialAccountId

EndIf

ToSQL=INSERTINTO[Transactions][MonthId][Date][Description][Amount][CategoryId][RecurringExpenseMonthId][SpecialAccountMonthId]VALUESMeMonthIdFormatMeTransDateyyyymmddMeDescriptionMeamountMeCatagoryIdnullspecialAccount

EndFunction